home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / file-tra / fsp-2.7 / fsp-2 / fsp / vms_src / miscvms.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-10  |  6.6 KB  |  302 lines
  1. /* Some unix emulation procedures */
  2. /* 1-NOV-1990 GJC@MITECH.COM */
  3. /* 24-DEC-1992 modified for use with VMS-fsp, <S.A.Pechler@bdk.tue.nl> */
  4. /* 05-MAR-1993 added some CPU-friendly fsp-patches */
  5.  
  6. #include <stdio.h>
  7. #include <string.h>
  8. #include <descrip.h>
  9. #include <rms.h>
  10. #include <ssdef.h>
  11. #include <stat.h>
  12.  
  13. #include "pwd.h"
  14.  
  15. #define fexist(A) (!vms_access(A,0))
  16.  
  17. /* Ignore these functions on VMS.
  18.  */
  19. char *getlogin(void)
  20. {
  21.  return (char *)0;
  22. }
  23.  
  24. struct passwd *getpwnam(char *dummy)
  25. {
  26.  return (struct passwd *)0;
  27. }
  28.  
  29. struct passwd *getpwuid(uid_t dummy)
  30. { 
  31.   return (struct passwd *)0;
  32. }
  33.  
  34. /* strcasecmp */
  35. int strcasecmp(char *name1, char *name2)
  36. {
  37.  return(strcmp(name1,name2));
  38. }
  39.  
  40. /* vms_access
  41.  * Just a simple patch for VMS-fsp, it checks for the existance of a
  42.  * file, regardless of the 'dummy' parameter (was originally
  43.  * protection-flag).
  44.  */
  45. int vms_access(file,dummy)
  46. char *file;
  47. int dummy;
  48. {
  49.  struct FAB fab;
  50.  char filename[255];
  51.  
  52.  if (convfile(filename,file)) return 1;
  53.  fab=cc$rms_fab;
  54.  fab.fab$l_fna=filename;
  55.  fab.fab$b_fns=strlen(filename);
  56.  if (sys$open(&fab) != RMS$_NORMAL) return 1;
  57.  else sys$close(&fab);
  58.  return 0;
  59. }
  60.  
  61. /* vms_stat
  62.  * Just a simple patch, returns only filetype DIR or REG in struct stat. 
  63.  */
  64. int vms_stat(file,vstat)
  65. char *file;
  66. struct stat *vstat;
  67. {
  68.  struct FAB fab;
  69.  struct NAM nam;
  70.  char exp_str[NAM$C_MAXRSS];
  71.  char res_str[NAM$C_MAXRSS];
  72.  
  73.  char filename[255];
  74.  
  75.  /* convert the filename to VMS-format */
  76.  if (convfile(filename,file)) return 1;
  77.  
  78.  /* fill in nam-block */
  79.  nam= cc$rms_nam;
  80.  nam.nam$l_rsa= res_str;
  81.  nam.nam$b_rss= NAM$C_MAXRSS;
  82.  nam.nam$l_esa= exp_str;
  83.  nam.nam$b_ess= NAM$C_MAXRSS;
  84.  
  85.  /* fill in fab-block */
  86.  fab= cc$rms_fab;
  87.  fab.fab$l_nam= &nam;
  88.  fab.fab$l_fop= fab.fab$v_nam;
  89.  fab.fab$l_fna= filename;
  90.  fab.fab$b_fns= (unsigned char)strlen(filename);
  91.  
  92.  sys$parse(&fab); /* needed for completion nam-block */
  93.  if (sys$search(&fab) != RMS$_NORMAL)
  94.  {
  95.   if (filename[strlen(filename)-1]==']')  /* kludge to check for dir-path */
  96.   { vstat->st_mode=S_IFDIR;
  97.     return 0;
  98.   }
  99.   else return 1;
  100.  }
  101.  
  102.  /* if name ends on .DIR;1 then it's a dir (Will go wrong when you have
  103.     files with a .DIR;1 extension). */
  104.  if (strncmp(".DIR;1",nam.nam$l_type,6)) vstat->st_mode=S_IFREG;
  105.  else vstat->st_mode=S_IFDIR;
  106.  return 0;
  107. }
  108.  
  109. /* isvariable
  110.  * returns true if file is in variable record length format.
  111.  */
  112. int isvariable(sb)
  113. struct stat sb;
  114. {
  115. return (int)(sb.st_fab_rfm==FAB$C_VAR || sb.st_fab_rfm==FAB$C_VFC);
  116. }
  117.  
  118. #ifndef bcopy /* only for UCX systems */
  119. bcopy(x,y,n)
  120.      char *x,*y;
  121.      long n;
  122. {memmove(y,x,n);}    /* reverse order of arguments */
  123. #endif
  124.  
  125. static char *getwd_tmp = NULL;
  126.  
  127. char *getwd(p)
  128.      char *p;
  129. {
  130.  int c;
  131.  char *root_dir,*l2;
  132.  getcwd(p,512,0);    /* get current working directory in unix format*/
  133.  
  134.  root_dir = strstr ( p, "/000000" );
  135.  if ( root_dir != NULL ) {
  136.     /* trim root directory out of specification */
  137.     if ( (strlen(root_dir) == 7) && 
  138.      (strpbrk(p+1,"/") == root_dir) ) *root_dir = '\0';
  139.  }
  140.  /* special kludge for "/" directory */
  141.  if ( strcmp ( p, "/DEVICE_LIST_ROOT" ) == 0 ) strcpy  ( p, "/" );
  142.  return(p);
  143. }
  144.  
  145. /*
  146. ** HARDLINK emulation, just a filecopy on VMS.
  147. */
  148. #ifndef link
  149. long
  150. link(source,target)
  151.  char *source;
  152.  char *target;
  153.  
  154. {
  155.  FILE *ft, *fp;
  156.  char buf[512];
  157.  int bytes;
  158.  
  159.  if (fexist(target)) return(-1); /* target already exists */
  160. #ifdef DEBUG
  161.  printf("link: source: %s, target: %s\n",source,target);
  162. #endif
  163.  if(!(ft = fopen(source,"r","mbf=2","mbc=32"))) return(-1);
  164.  if(!(fp = fopen(target,"w","mbf=2","mbc=32"))) { fclose(ft); return(-1); }
  165.  /* copy source to target */
  166.  while(bytes = fread(buf,1,sizeof(buf),ft)) fwrite(buf,1,bytes,fp);
  167.  fclose(ft); fclose(fp);
  168.  return(0);
  169. }
  170. #endif
  171.  
  172. rindex(p,c)
  173.      char *p;
  174.      int c;
  175. {
  176.  return(strrchr(p,c));
  177. }
  178.  
  179. /*
  180.  * redefinition of lstat
  181.  */
  182. int lstat(f,st)        /* fake a stat operation to return file type */
  183.    char *f;
  184.    stat_t *st;
  185. {
  186.     char *dirext, *name;
  187.     int extlen;
  188.  
  189.     st->st_mode = S_IFREG;    /* default to normal file */
  190.     name = strrchr ( f, '/' );    /* locate rightmost slash */
  191.     if ( name == NULL ) name = f; else name++;
  192.  
  193.     dirext = strstr ( name, ".DIR" );
  194.     if ( dirext != NULL ) {
  195.     /* make it an exact match */
  196.     extlen = strcspn(&dirext[1],".;");
  197.         if ( (extlen == 0) || (extlen == 3) ) {
  198.         st->st_mode = S_IFDIR;
  199.         if ( strncmp ( name, "000000.", 7 ) == 0 ) return 0;
  200.         else return (stat ( f, st ));
  201.     }
  202.     }
  203.     return 0;
  204. }
  205.  
  206. do_vms_wildcard(pargc,pargv)
  207.      int *pargc;
  208.      char ***pargv;
  209. {int j,vsize;
  210.  int argc; char **argv;
  211.  argc = *pargc;
  212.  argv = *pargv;
  213.  *pargc = 0;
  214.  vsize = 3;
  215.  *pargv = (char **) malloc(sizeof (char *) * vsize);
  216.  for(j=0;j<argc;++j)
  217.    vms_wild_putargs(argv[j],pargc,pargv,&vsize);
  218. }
  219.  
  220. vms_wild_putargs(s,pargc,pargv,pvsize)
  221.      char *s; int *pargc; char ***pargv; int *pvsize;
  222. {if ( (!strchr(s,'*')) && (!strchr(s,'%')) )
  223.    vms_wild_put_one(s,pargc,pargv,pvsize);
  224.  else
  225.    vms_wild_put_wild(s,pargc,pargv,pvsize);
  226. }
  227.  
  228.  
  229. vms_wild_put_one(s,pargc,pargv,pvsize)
  230.      char *s; int *pargc; char ***pargv; int *pvsize;
  231. {int nvsize,i;
  232.  char ** nargv, *uname, *SHELL$TRANSLATE_VMS();
  233.  if (*pargc == *pvsize)
  234.    {nvsize = 2 * *pvsize;
  235.     nargv = (char **) malloc(sizeof (char *) * nvsize);
  236.     for(i=0;i < *pargc; ++i) nargv[i] = (*pargv)[i];
  237.     free(*pargv);
  238.     *pargv = nargv;
  239.     *pvsize = nvsize;}
  240.  if ( uname = SHELL$TRANSLATE_VMS ( s ) ) {
  241.     /* printf("vms: '%s' -> unix: '%s'\n", s, uname ); */
  242.     if ( strlen(s) >= strlen(uname) ) { strcpy(s,uname); free(uname); }
  243.     else s = uname;  /* will lose s's old allocation */
  244.  } 
  245.  (*pargv)[(*pargc)++] = s;
  246. }
  247.  
  248.  
  249. set_dsc(x,buff,len)
  250.  struct dsc$descriptor *x;
  251.  char *buff;
  252.  int len;
  253. {
  254.  (*x).dsc$w_length = len;
  255.  (*x).dsc$a_pointer = buff;
  256.  (*x).dsc$b_class = DSC$K_CLASS_S;
  257.  (*x).dsc$b_dtype = DSC$K_DTYPE_T;
  258.  return(x);
  259. }
  260.  
  261. struct dsc$descriptor *
  262. set_dsc_cst(x,buff)
  263.  struct dsc$descriptor *x;
  264.  char *buff;
  265. {
  266.  return(set_dsc(x,buff,strlen(buff)));
  267. }
  268.  
  269.  
  270. vms_wild_put_wild(s,pargc,pargv,pvsize)
  271.  char *s; int *pargc; char ***pargv; int *pvsize;
  272. {
  273.  struct dsc$descriptor fnamed,foutd,rfnamed;
  274.  char *ns,*p;
  275.  int rval;
  276.  long context;
  277.  
  278.  set_dsc_cst(&rfnamed,";");
  279.  set_dsc_cst(&fnamed,s);
  280.  set_dsc(&foutd,0,0);
  281.  foutd.dsc$b_class = DSC$K_CLASS_D;
  282.  context = 0;
  283.  while(1)
  284.   {rval = lib$find_file(&fnamed,&foutd,&context,0,&rfnamed,0,0);
  285.    if (rval == RMS$_NMF) break;
  286.    if (rval == RMS$_FNF) break;
  287.    if (rval != RMS$_NORMAL) exit(rval);
  288.    ns = (char *) malloc(foutd.dsc$w_length + 1);
  289.    ns[foutd.dsc$w_length] = 0;
  290.    memcpy(ns,foutd.dsc$a_pointer,foutd.dsc$w_length);
  291.    /*if (p = strchr(ns,']')) ns = p+1;*/
  292.    /* if (p = strchr(ns,';')) *p = 0; */
  293.    vms_wild_put_one(ns,pargc,pargv,pvsize);
  294.   }
  295.  if (foutd.dsc$a_pointer) lib$sfree1_dd(&foutd);
  296.  if (context)
  297.  { rval = lib$find_file_end(&context);
  298.    if (rval != SS$_NORMAL) exit(rval);
  299.  }
  300. }
  301.  
  302.